From e25a7977177436a9dbd41f1a0703a26568d6ae46 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Mon, 5 Mar 2007 07:00:16 +0000
Subject: [PATCH] Fix previous change.

---
 lisp/international/characters.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index eca68f55930..024333c4a88 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -917,7 +917,7 @@
   (setq c #x0100)
   (while (<= c #x02AF)
     (modify-category-entry (decode-char 'ucs c) ?l)
-    (setq c (1+ 1)))
+    (setq c (1+ c)))
 
   (setq c #x0100)
   (while (<= c #x0177)
-- 
2.30.2